home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / dbase / fiasco.lha / Fiasco_1.2 / Databases / Videos / CalcLen.rexx next >
OS/2 REXX Batch file  |  1995-12-06  |  848b  |  62 lines
  1. /* CalcLen.rexx
  2.  * Support script for the Fiasco project "Movies"
  3.  * Copyright © 1995 Nils Bandener
  4.  * $VER: CalcLen_rexx 3.1 (6.12.95)
  5.  */
  6.  
  7. options results
  8.  
  9. address FIASCO
  10.  
  11. F_GetRecNum
  12. OldRec = Result
  13.  
  14. TotalLen = 0
  15. TotalFilms = 0
  16.  
  17. F_GetFieldCont "Tape"
  18. TapeKey = Result
  19.  
  20. F_FindFirst "Tape" TapeKey
  21.  
  22. do while rc = 0
  23.  
  24.     F_GotoRec Result
  25.     F_GetFieldCont "Length"
  26.     TotalLen = TotalLen + Result
  27.     TotalFilms = TotalFilms + 1
  28.  
  29.     F_FindNext "Tape" TapeKey
  30.  
  31. end
  32.  
  33. F_GetProjName
  34. OldProj = Result
  35.  
  36. F_SelectProj "Tapes.fdb"
  37.  
  38. if rc = 0 then do
  39.  
  40.     F_FindFirst "Tape" TapeKey
  41.  
  42.     if rc = 0 then do
  43.  
  44.         F_GotoRec Result
  45.  
  46.         F_SetFieldCont "Used" TotalLen
  47.  
  48.         F_GetFieldCont "Len"
  49.  
  50.         F_SetFieldCont "Free" Result - TotalLen
  51.  
  52.         F_SetFieldCont "FilmCnt" TotalFilms
  53.  
  54.     end
  55.  
  56.     F_SelectProj OldProj
  57.  
  58. end
  59.  
  60. F_GotoRec OldRec
  61.  
  62.